home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr05 / mswlogo3.zip / MSWLOGO.ZIP / LOGOLIB.ZIP / FILTER < prev    next >
Text File  |  1992-10-27  |  503b  |  15 lines
  1. to filter :filter.template :template.list [:template.number 1] ~
  2.           [:template.lists (list :template.list)]
  3. if emptyp :template.list [op :template.list]
  4. if apply :filter.template (list first :template.list) ~
  5.    [op combine (first :template.list) ~
  6.                (filter :filter.template bf :template.list :template.number+1)]
  7. op (filter :filter.template bf :template.list :template.number+1)
  8. end
  9.  
  10. to ?rest [:which 1]
  11. output bf item :which :template.lists
  12. end
  13.  
  14. bury [filter ?rest]
  15.